|
|  All in a Row patience
|  Written by Ph.DONSBACK
|
SCRIPT_TYPE 1
|
BEGIN "All in a Row"

  FLAGS ClickFly AnimateFly
  PACKS 1
  WIDTH 13 * CW
  HEIGHT 2 * CH + 3 * COH
  ZEROTOWIN 52 - CARDSIN$2

| The tableau

  FOR stack = 0 TO 12
    STACK
      X stack * CW
      Y 0
      DEAL 4,1
      MAX 0
      DRAGUPTO 1
      ID 3
      FLAGS ClickFly
    END
  END

| The waste

  STACK
    X 0
    Y CH + 3 * COH
    FIRST 1,13
    DRAGUPTO 0
    ID 2
    JoinOffset 1, -1
    FLAGS PaintShiftRight Join____ RotateJoin ClickFly
  END


END
